(rmail-process-new-messages): Add an X-Coding-System header if one

doesn't exist.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index e0bc137888201da7bfaae40e400554f9a4460d81..dea879addb17d1370e79b501e94fa7d9a1e3782f 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -1944,7 +1944,8 @@ non-nil then do not show any progress messages."
         (case-fold-search nil)
        (new-message-counter 0)
        (start (point-max))
-       end attributes keywords message-descriptor-list date)
+       end attributes keywords message-descriptor-list
+       date coding)
     (or nomsg (message "Processing new messages..."))
     ;; Process each message in turn starting from the back and
     ;; proceeding to the front of the region.  This is especially a
@@ -1985,6 +1986,17 @@ non-nil then do not show any progress messages."
                    (delete-char 1)))
                (setq end (marker-position end-marker))
                (set-marker end-marker nil)))
+
+         ;; Add an X-Coding-System header if we don't have one.
+         (unless (rmail-header-get-header "X-Coding-System")
+           (let ((case-fold-search t))
+             (when (save-excursion
+                     (goto-char start)
+                     (search-forward "\n\n" nil t)
+                     (re-search-backward rmail-mime-charset-pattern start t))
+               (rmail-header-add-header "X-Coding-System"
+                                        (downcase (match-string 1))))))
+
          ;; Make sure we have an Rmail BABYL attribute header field.
          ;; All we can assume is that the Rmail BABYL header field is
          ;; in the header section.  It's placement can be modified by